home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / pascal-ahls < prev    next >
Text File  |  2007-02-28  |  400b  |  26 lines
  1. (*program ahl's benchmark*)
  2. var i,n: integer;
  3.     a,s,r: real;
  4. begin
  5.  r:=0.;
  6.  s:=0.;
  7.  writeln('   begin test');
  8.  for n:= 1 to 100 do
  9.   begin
  10.    a:=n;
  11.    for i:= 1 to 10 do
  12.     begin
  13.      a:=sqrt(a);
  14.      r:=r+0.5;
  15.     end;
  16.    for i:= 1 to 10 do
  17.     begin
  18.      a:=sqr(a);
  19.      r:=r+0.5;
  20.     end;
  21.    s:=s+a
  22.   end;
  23. writeln(' accuracy=',abs(1010-s/5.):11:8);
  24. writeln(' random  =',abs(1000-r):11:8);
  25. end.
  26.